home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / ADRODX.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-02  |  12.1 KB  |  240 lines
  1. 100  CLEAR:ON ERROR GOTO 9000
  2. 126  GOSUB 3000:GOTO 200
  3. 130  CLS:GOSUB 140:LOCATE 12,20:PRINT  "PLEASE WAIT, RETURNING TO MAIN MENU":RUN"ADMAIN.BAS"
  4. 133  CLS:GOSUB 140:LOCATE 12,20:PRINT  "PLEASE WAIT, RETURNING TO PRINT MENU":RUN"ADPRT.BAS"
  5. 140  LOCATE 25,26:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS ";:COLOR 3,0:RETURN
  6. 155  CLS:COLOR 3,0:LOCATE  12,30:PRINT "QUIT?  <Y>es or <N>o?":COLOR 14,0:LOCATE 12,38:PRINT "Y":LOCATE 12,47:PRINT "N":COLOR 3,0
  7. 156  GOSUB 35020
  8. 157  Y$=INKEY$:IF Y$="" THEN 157 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  9. 158  IF Y$="N" THEN 210
  10. 159  IF Y$="Y" THEN CLS:LOCATE 12,30:PRINT "GOODBYE":SYSTEM ELSE 156
  11. 160  REM
  12. 200  REM               PRINT
  13. 210  GOSUB 5010:Z$=""
  14. 220  X3$="FILE = ":X4$=SPACE$(15):X5$="FUNCTION = ":X1$="PRINT "
  15. 230  CLS:LOCATE 25,29:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 1,1
  16. 240  LOCATE 7,19:PRINT "ROLODEX* ";
  17. 280  COLOR 14,0:PRINT "LABELS ";:COLOR 3,0:PRINT "with variable dimensions"
  18. 330  LOCATE 12,28:COLOR 0,7:PRINT "Hit any key to continue":
  19. 361  COLOR 3,0:LOCATE 17,40:PRINT "KEY  F1 = Return to MAIN menu"
  20. 362  COLOR 14,0:LOCATE 18,40:PRINT "     F2";:COLOR 3,0:PRINT " = Return to PRINT-ROLODEX* menu"
  21. 363  LOCATE 19,40:PRINT "     F6 = Return to PRINT menu"
  22. 364  LOCATE 20,40:PRINT "     F8 = KEYS used in NOTES"
  23. 365  LOCATE 21,40:PRINT "     F7 = List of names in Address Book"
  24. 366  LOCATE 22,40:PRINT "    F10 = HELP"
  25. 367  LOCATE 23,40:PRINT "ALT F10 = QUIT"
  26. 369  LOCATE 1,67:PRINT "(C) 1983":LOCATE 2,62:PRINT "Date:  ";DATE$:LOCATE 3,62:PRINT "Time:  "
  27. 370  DEF SEG=0: POKE 1050, PEEK(1052)
  28. 371  Y9$=INKEY$:IF Y9$="" THEN LOCATE 3,69:PRINT TIME$:GOTO 371 ELSE 375
  29. 375  IF LEN(Y9$)=2 THEN 460
  30. 380  COLOR 3,0:LOCATE 6,11:Y9$="3":PRINT Y9$:GOTO 840
  31. 460  IF ASC(RIGHT$(Y9$,1))=68 THEN 30000
  32. 470  IF ASC(RIGHT$(Y9$,1))=113 THEN 155 ELSE 240
  33. 600  IF YS=1 THEN YS=0:GOSUB 5000:GOSUB 5010
  34. 605  LOCATE 20,25:COLOR 0,7:PRINT "TURN ON PRINTER AND HIT ANY KEY":COLOR 3,0:GOSUB 35010
  35. 610  Y$=INKEY$: IF Y$="" THEN 610 ELSE LOCATE 20,25:PRINT SPACE$(40)
  36. 620  LOCATE 21,25:PRINT SPACE$(40):LOCATE 21,37:COLOR 16,7:PRINT "WORKING"
  37. 630  LOCATE 21,27:COLOR 14,0:PRINT "Hit <Esc> to stop printing":COLOR 3,0:RETURN
  38. 650  RODXFILE$=FIL$+".RDX":OPEN RODXFILE$ FOR INPUT AS #3:INPUT #3, WID,HT,NS:CLOSE #3:GOTO 665
  39. 655  WID=4:HT=2.25:NS=1
  40. 665  LOCATE 8,28:COLOR 14,0:PRINT "Width of labels in inches:  ";WID
  41. 670  LOCATE 10,28:COLOR 14,0:PRINT "Height of labels in inches:  ";HT
  42. 675  LOCATE 12,28:COLOR 14,0:PRINT "Number of Labels across the page:  ";NS
  43. 680  RETURN 865
  44. 710  COLOR 11,0:LOCATE 16,21:PRINT "Do you want to save the label dimensions?" :COLOR 3,0:LOCATE 18,35:PRINT "[Y] or <N>":COLOR 14,0:LOCATE 18,36:PRINT "Y":LOCATE 18,43:PRINT "N":COLOR 3,0:GOSUB 35030
  45. 715  Y$=INKEY$:IF Y$="" THEN 715 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  46. 720  IF Y$="N" THEN RETURN
  47. 730  RODXFILE$=FIL$+".RDX":OPEN RODXFILE$ FOR OUTPUT AS #3:PRINT #3, WID,HT,NS:CLOSE #3:RETURN
  48. 800  DEF SEG=0: POKE 1050, PEEK(1052)
  49. 810  Y$=INKEY$:IF Y$="" THEN 810 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  50. 820  IF Y$<>"Y" THEN Y$="N"
  51. 830  RETURN
  52. 840  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - ROLODEX LABEL"
  53. 845  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-ROLODEX* menu"
  54. 846  IF Z$="G" THEN 855 ELSE GOSUB 650
  55. 855  LOCATE 8,28:COLOR 14,0:PRINT "Width of labels in inches?  ";:COLOR 29,0:PRINT CHR$(178):LOCATE 8,56:COLOR 14,0:GOSUB 35030:INPUT "",WID
  56. 860  LOCATE 10,28:PRINT "Height of labels in inches?  ";:COLOR 29,0:PRINT CHR$(178):LOCATE 10,57:COLOR 14,0:GOSUB 35030:INPUT "",HT
  57. 861  IF Y9$="3" THEN LOCATE 12,28:PRINT "Number of Labels across the page?  ";:COLOR 29,0:PRINT CHR$(178):LOCATE 12,63:COLOR 14,0:GOSUB 35030:INPUT "",NS
  58. 865  COLOR 11,0:LOCATE 16,28:PRINT "Confirm Label Dimensions." :COLOR 3,0:LOCATE 18,35:PRINT "[Y] or <N>":COLOR 14,0:LOCATE 18,36:PRINT "Y":LOCATE 18,43:PRINT "N":COLOR 3,0:GOSUB 35030
  59. 866  Y$=INKEY$:IF Y$="" THEN 866 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  60. 867  IF Y$="N" THEN CLS:Z$="G":GOTO 840 ELSE GOSUB 710
  61. 870  M5=INT((WID+0.1)*10+0.5):M3=M5-3:M2=M5-4:M6=M5-3:M1=INT(WID+0.5):M4=M5-1
  62. 880  HT=HT+1/16:HTL=INT(HT*6+0.5)
  63. 1000  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - ROLODEX* LABEL"
  64. 1005  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-ROLODEX* menu"
  65. 1010  LOCATE 12,20:COLOR 14,0:PRINT "Do you want to use the Courtesy Title?"
  66. 1020  LOCATE 14,33:COLOR 3,0:PRINT "<Y>es or [N]o?":LOCATE 14,34:COLOR 14,0:PRINT "Y":LOCATE 14,43:PRINT "N":COLOR 3,0:GOSUB 35030:GOSUB 800:T$=Y$
  67. 1040  IF HT<0.875 THEN TT$="N":GOTO 1070 ELSE LOCATE 12,20:COLOR 14,0:PRINT "Do you want to include the formal title?";SPACE$(10)
  68. 1050  GOSUB 35030:GOSUB 800:TT$=Y$
  69. 1070  LOCATE 12,20:COLOR 14,0:PRINT "Do you want to include the company name?";SPACE$(10)
  70. 1080  GOSUB 35030:GOSUB 800:TC$=Y$
  71. 1090  LOCATE 12,20:COLOR 14,0:PRINT SPACE$(4);"Do you want to include any NOTES?";SPACE$(10)
  72. 1100  GOSUB 35030:GOSUB 800:TN$=Y$
  73. 1110  LOCATE 12,20:COLOR 14,0:PRINT SPACE$(4);"Do you want to include birthday?";SPACE$(10)
  74. 1120  GOSUB 35030:GOSUB 800:TD$=Y$
  75. 1130  IF TD$="N" AND TN$="N" THEN JN=7:GOTO 1171
  76. 1135  IF TD$="Y" AND TN$="Y" THEN JN=10:GOTO 1171
  77. 1140  IF TN$="Y" THEN JN=9:GOTO 1171 ELSE JN=8
  78. 1171  IF PT$="I" THEN 1172 ELSE 1540
  79. 1172  GOSUB 5000:LOCATE 1,1:PRINT TAB(4);"PRINT - ROLODEX* LABEL"
  80. 1174  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-ROLODEX* menu"
  81. 1178  LOCATE 12,15:COLOR 14,0:PRINT "Do you want to changed to a condensed typestyle?"
  82. 1180  LOCATE 14,33:COLOR 3,0:PRINT "<Y>es or [N]o?":LOCATE 14,34:COLOR 14,0:PRINT "Y":LOCATE 14,43:PRINT "N":COLOR 3,0:GOSUB 35010:GOSUB 800:C$=Y$
  83. 1182  IF C$="Y" THEN    PRINT #5, CHR$(15):    PRINT #5, CHR$(27);CHR$(48):WIDTH #5,254:HTL=INT(HT*8+0.45)
  84. 1190  GOTO 1540
  85. 1200  GET #4,D%(LL)
  86. 1210  FOR J= 1 TO 7 :A(J,L)=VAL(V$(J)):NEXT
  87. 1220  A(8,L)=VAL(V$(13)):A(9,L)=VAL(V$(12)):A2=A(2,L)
  88. 1230  W$(6,L)=MID$(V$(5),5,A(5,L))+", "+MID$(V$(6),5,A(6,L))+"  "+MID$(V$(7),5,A(7,L))
  89. 1232  IF Y9$="3" THEN 1234 ELSE 1240
  90. 1234  IF LEN(W$(6,L))<=M4 THEN 1240 ELSE WL=LEN(W$(6,L))-M4
  91. 1236  W$(6,L)=MID$(V$(5),5,A(5,L)-WL)+", "+MID$(V$(6),5,A(6,L))+" "+MID$(V$(7),5,A(7,L)):A(5,L)=A(5,L)-WL-1
  92. 1240  A2=A(2,L):IF T$="N" THEN A9=M3-A(2,L):GOTO 1250 ELSE A9=M3-A(8,L)-A(2,L)
  93. 1250  IF A9=>A(1,L) THEN 1290
  94. 1260  A1=INSTR(1,MID$(V$(1),5,A(1,L))," "):IF A1<=0 THEN A$=MID$(V$(1),5,1)+".":A(1,L)=2:GOTO 1300
  95. 1270  IF A1<A9 THEN A$=MID$(V$(1),5,A1-1):A(1,L)=A1-1:GOTO 1300
  96. 1280  IF (A1<A(1,L) AND A1<A9) THEN A$=MID$(V$(1),5,1)+". "+MID$(V$(1),6+A1,1)+".":A(1,L)=5:GOTO 1300:ELSE A$=MID$(V$(1),5,1)+".":A(1,L)=2:GOTO 1300
  97. 1290  A$=MID$(V$(1),5,A(1,L))
  98. 1300  A(5,L)=M2-A(5,L)-A(6,L)-A(7,L):IF T$="N" THEN W$(1,L)=A$+" "+MID$(V$(2),5,A(2,L)):GOTO 1320
  99. 1310  W$(1,L)=MID$(V$(13),5,A(8,L))+A$+" "+MID$(V$(2),5,A(2,L))
  100. 1320  IF TT$="N" AND TC$="N" THEN W$(2,L)=MID$(V$(4),5,M3):W$(4,L)="":W$(5,L)="":W$(3,L)=W$(6,L):GOTO 1370
  101. 1330  IF A(9,L) = 0 AND A(3,L)=0 THEN W$(2,L)=MID$(V$(4),5,M3):W$(4,L)="":W$(5,L)="":W$(3,L)=W$(6,L):GOTO 1370
  102. 1340  IF A(9,L) = 0 AND A(3,L)<>0 THEN 1345 ELSE 1350
  103. 1345  IF TC$="Y" THEN W$(2,L)=MID$(V$(3),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
  104. 1350  IF A(9,L) <> 0 AND A(3,L)<>0 THEN 1355 ELSE 1360
  105. 1355  IF TT$="Y" AND TC$="Y" THEN W$(2,L)=MID$(V$(12),5,M3):W$(3,L)=MID$(V$(3),5,M3):W$(4,L)=MID$(V$(4),5,M3):W$(5,L)=W$(6,L):GOTO 1370
  106. 1356  IF TT$="Y" AND TC$="N" THEN W$(2,L)=MID$(V$(12),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
  107. 1357  IF TT$="N" AND TC$="Y" THEN W$(2,L)=MID$(V$(3),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
  108. 1360  IF A(9,L) <>0 AND A(3,L)=0 THEN 1365 ELSE 1370
  109. 1365  IF TT$="Y" THEN W$(2,L)=MID$(V$(12),5,M3):W$(3,L)=MID$(V$(4),5,M3):W$(4,L)=W$(6,L):W$(5,L)="":GOTO 1370
  110. 1370  A(1,L)=M5-LEN(W$(1,L)):A(2,L)=M5-LEN(W$(2,L)):A(3,L)=M5-LEN(W$(3,L)):A(4,L)=M5-LEN(W$(4,L)):A(5,L)=M5-LEN(W$(5,L))
  111. 1375  IF VAL(V$(10))=0 AND VAL(V$(11))=0 THEN W$(6,L)="":A(6,L)=M5:W$(7,L)="":A(7,L)=M5:GOTO 1400
  112. 1380  IF VAL(V$(10))=0 THEN W$(6,L)="Office:  "+MID$(V$(11),5,VAL(V$(11))) :A(6,L)=M5-LEN(W$(6,L)):W$(7,L)="":A(7,L)=M5:GOTO 1400
  113. 1390  IF VAL(V$(11))=0 THEN W$(6,L)="Home:    "+MID$(V$(10),5,VAL(V$(10))) :A(6,L)=M5-LEN(W$(6,L)):W$(7,L)="":A(7,L)=M5:GOTO 1400
  114. 1396  W$(6,L)="Office:  "+MID$(V$(11),5,VAL(V$(11))):W$(7,L)="Home:    "+MID$(V$(10),5,VAL(V$(10))) :A(6,L)=M5-LEN(W$(6,L)):A(7,L)=M5-LEN(W$(7,L)):GOTO 1400
  115. 1400  IF TD$="N" AND TN$="N" THEN :RETURN
  116. 1405  IF TD$="Y" AND VAL(V$(8))>0 THEN W$(8,L)="DATE:  "+MID$(V$(8),5,9):A(8,L)=M5-LEN(W$(8,L)):KN=9  ELSE KN=8:W$(9,L)="":A(9,L)=M5
  117. 1410  IF TN$="Y" AND VAL(V$(9))>0 THEN MX=M5-10:W$(KN,L)="NOTE:  "+MID$(V$(9),5,MX):A(KN,L)=M5-LEN(W$(KN,L)) ELSE W$(9,L)="":A(9,L)=M5:GOTO 1415
  118. 1412  KN=KN+1:MX=MX+5:W$(KN,L)=" "+MID$(V$(9),MX,M2):A(KN,L)=M5-LEN(W$(KN,L))
  119. 1415  IF VAL(V$(8))=0 AND VAL(V$(9))=0 THEN A(8,L)=M5:A(9,L)=M5:W$(8,L)="":W$(9,L)="" :RETURN
  120. 1420  RETURN
  121. 1540  REM
  122. 1545  GOSUB 5000
  123. 1550  LOCATE 1,1:PRINT TAB(4);"PRINT - ROLODEX* LABEL":PRINT:PRINT "CHOOSE ONE OF THE FOLLOWING:  "
  124. 1560  PRINT:COLOR 14,0
  125. 1570  PRINT "   ";CHR$(186);"     ";O5$:PRINT "   ";CHR$(186);"     ";O6$:PRINT "   ";CHR$(25);"     ";O7$:COLOR 3,0
  126. 1580  PRINT :PRINT TAB(4);"S)NAME":PRINT TAB(4);"N)OTE Code":PRINT TAB(4);"Z)IPCODE":COLOR 14,0
  127. 1590  LOCATE 9,4:PRINT "S":LOCATE 10,4:PRINT "N":LOCATE 11,4:PRINT "Z"
  128. 1600  COLOR 31,0:LOCATE 6,11:PRINT "?":COLOR 3,0
  129. 1602  COLOR 14,0:LOCATE 22,40:PRINT "KEY  F2";:COLOR 3,0:PRINT " = Return to PRINT-ROLODEX* menu"
  130. 1605  DEF SEG=0: POKE 1050, PEEK(1052)
  131. 1610  Y$=INKEY$: IF Y$="" THEN 1610 ELSE Y$=CHR$(ASC(Y$) AND &HDF)
  132. 1615  IF Y$="S" THEN YS=1:GOTO 40000
  133. 1620  IF Y$="N" THEN 1800
  134. 1630  IF Y$="Z" THEN 1660 ELSE GOSUB 35020:GOTO 1605
  135. 1660  GOSUB 5000
  136. 1670  PRINT "PRINT ... ZIPCODE":LOCATE 5,32:PRINT "ENTER:  ZIPCODE & ";ARR$:LOCATE 6,8:PRINT "(Any number of digits and always start from the left most digit)"
  137. 1680  LOCATE 7,39:PRINT "OR":LOCATE 8,32:PRINT "'!' to print all"
  138. 1690  LOCATE 9,39:PRINT "OR":LOCATE 10,28:PRINT ARR$;"  return to PRINT menu":LOCATE 15,25:COLOR 14,0:INPUT "ZIPCode ... ",Z$:KK=7:X2$=" ZIPCODE "
  139. 1700  GOTO 1840
  140. 1800  GOSUB 5000
  141. 1810  PRINT "PRINT ... NOTE (Code)":LOCATE 5,30:PRINT "ENTER:  NOTE (Code) & ";ARR$:LOCATE 6,4:PRINT "(Any number of characters and always start from the left most character)"
  142. 1820  LOCATE 7,39:PRINT "OR":LOCATE 8,32:PRINT "'!' to print all"
  143. 1830  LOCATE 9,39:PRINT "OR":LOCATE 10,28:PRINT ARR$;"  return to PRINT menu":LOCATE 15,25:COLOR 14,0:INPUT "NOTE (Code) ... ",Z$:KK=9:X2$=" NOTES"
  144. 1840  MM=LEN(Z$):IF MM=0 THEN 230
  145. 1841  LOCATE 22,37:COLOR 16,7:PRINT "WORKING":COLOR 3,0
  146. 1845  X3$="FILE = ":X4$=SPACE$(15):X5$="FUNCTION = ":X1$="PRINT "
  147. 1850  JJ=0:GET #4,NN+1:I=VAL(V$(16)):IK=0
  148. 1855  IF IK=NN THEN 1920 ELSE IK=IK+1
  149. 1860  GET #4,I
  150. 1870  IF Z$="!" THEN 1890
  151. 1880  IF Z$<>MID$(V$(KK),5,MM) THEN  1910
  152. 1890  JJ=JJ+1
  153. 1900  D%(JJ)=I
  154. 1910  I=VAL(V$(14)):GOTO 1855
  155. 1920  IF JJ=0 THEN 230
  156. 1940  REM
  157. 1960  GOSUB 600
  158. 1980  IF C$="Y" THEN 1982 ELSE 1983
  159. 1982  CMP=1.675:M1=INT(M1*CMP+0.5):M2=INT(M2*CMP+0.5):M3=INT(M3*CMP+0.5):M5=INT(M5*CMP+0.5):M4=M5-1:M6=M5
  160. 1983  I=1
  161. 1985  FOR L=1 TO NS:LL=I+L-1
  162. 1990  GOSUB 1200
  163. 2000  IF I=JJ THEN L=L+1:GOTO 2105
  164. 2023  IF A(1,L)<=0 THEN A(1,L)=1
  165. 2025  IF LL>=JJ THEN L=L+1:GOTO 2105
  166. 2030  NEXT
  167. 2105  IF I<=NN THEN 2115 ELSE IF N1 =0 THEN 2115 ELSE 2170
  168. 2115  REM
  169. 2120  FOR K=1 TO JN:FOR K1=1 TO L-2
  170. 2122      PRINT #5, W$(K,K1);SPACE$(A(K,K1));:W$(K,K1)="":NEXT
  171. 2123      PRINT #5, W$(K,K1):W$(K,K1)="":NEXT
  172. 2125  FOR K=1 TO HTL-JN: PRINT #5, :NEXT
  173. 2140  IF I+NS-1=>JJ OR I=0 THEN 2170 ELSE I=I+NS
  174. 2142  Y$=INKEY$:IF Y$=CHR$(27) THEN GOSUB 3500
  175. 2145  IF FRE(1)>1100 THEN 1985
  176. 2150  CHAIN "ADRODX.BAS",2155,ALL
  177. 2155  GOSUB 5010
  178. 2165  GOTO 1985
  179. 2170    PRINT #5, :    PRINT #5, CHR$(18):    PRINT #5, CHR$(27);CHR$(50):GOTO 100
  180. 2270      PRINT #5, :    PRINT #5, CHR$(18):GOTO 100
  181. 3000  O5$=CHR$(218)+CHR$(196)+CHR$(191):O6$=CHR$(179)+" "+CHR$(179):O7$=CHR$(192)+CHR$(196)+CHR$(217)
  182. 3010  O$=CHR$(219):O2$=CHR$(221):O1$="F KEYS:"+O$+O$+"F1:MAIN menu"+O2$+"F2:PRINT-ROLODEX* menu"+O2$+"F6:PRINT menu"+O2$+"F8:NAMES"+O2$+"F4:NOTES"
  183. 3020  DIM DQ$(12):FOR I= 1 TO 12:READ DQ$(I):NEXT
  184. 3025  DIM D$(13),Q$(13),B$(13),AZ$(3),AZ(3),D(16),LS%(20),W(20),ZK(50)
  185. 3030  DATA JANUARY, FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  186. 3040  WIDTH "LPT1:",82
  187. 3050  OPEN "TEMPOR.TEM" FOR INPUT AS #1
  188. 3055  INPUT #1, FILE$,FILM$,FIL$:CLOSE #1
  189. 3056  OPEN FILM$ FOR INPUT AS #2
  190. 3060  INPUT #2,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$:FOR I= 1 TO 36:INPUT #2, ZK(I):NEXT:CLOSE #2
  191. 3065  DIM V$(16),D%(NN),W$(10,8),A(10,8),B(10),W1$(10)
  192. 3070  IF PT$="I" THEN OPEN "LPT1:" FOR OUTPUT AS #5:GOTO 3090
  193. 3080  OPEN "LPT2:" FOR OUTPUT AS #5
  194. 3090  OPEN FILE$ AS #4 LEN = 356
  195. 3100  FIELD #4, 19 AS V$(1), 19 AS V$(2), 18 AS V$(13), 34 AS V$(12), 34 AS V$(3), 34 AS V$(4), 19 AS V$(5), 14 AS V$(6), 16 AS V$(7), 12 AS V$(8), 84 AS V$(9), 19 AS V$(10), 19 AS V$(11), 5 AS V$(14), 5 AS V$(15), 5 AS V$(16)
  196. 3120  FILN$=FIL$+".NTE"
  197. 3200  DEF SEG = &H40:POKE &H17, PEEK(&H17) AND 223
  198. 3210  ARR$=CHR$(17)+CHR$(196)+CHR$(217)
  199. 3250  FOR I=1 TO 13:READ Q$(I):NEXT
  200. 3270  FOR I=1 TO 13:READ W(I):NEXT
  201. 3280  DATA "NAME - SURNAME: ","NAME - FIRST:   ","TITLE:          ","COMPANY:        ","STREET:         ","CITY:           ","STATE:          ","ZIPCODE:        ","     HOME:      ","   OFFICE:      ","BIRTHDAY:       ","NOTE:           ","TELEPHONE:"
  202. 3300  DATA 2,1,12,3,4,5,6,7,10,11,8,9,13
  203. 3310  RETURN
  204. 3500  LOCATE 21,25:COLOR 0,7:PRINT "Hit any key to continue PRINTING"
  205. 3510  LOCATE 23,26:COLOR 10,0:PRINT "Hit KEY F2 - Return to Menu.":COLOR 3,0:GOSUB 35010
  206. 3520  Y$=INKEY$: IF Y$="" THEN 3520 ELSE GOSUB 620
  207. 3530  RETURN
  208. 4000  REM
  209. 4010  OPEN FILN$ FOR INPUT AS #2
  210. 4030  FOR I= 1 TO 20:INPUT #2, NKEY$(I),NOTE$(I):IF NKEY$(I)=CHR$(15) THEN 4035 ELSE NEXT
  211. 4035  NP=I-1:CLOSE #2
  212. 4040  GOSUB 5000
  213. 4050  LOCATE 1,1:PRINT "NOTES:  KEYS":LOCATE 1,30:COLOR 14,0:PRINT "KEYS       ";:COLOR 3,0:PRINT " DESCRIPTION":FOR I=1 TO NP:COLOR 14,0:LOCATE 4+I,30:PRINT NKEY$(I);:COLOR 3,0:LOCATE ,40:PRINT " = ";NOTE$(I):NEXT
  214. 4060  LOCATE 20,28:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE":COLOR 3,0
  215. 4065  Y$=INKEY$:IF Y$="" THEN 4065 ELSE 160
  216. 5000  CLS:LOCATE 25,1:COLOR 0,7,1:PRINT O1$;:COLOR 3,0:LOCATE 1,1:RETURN
  217. 5010  ON KEY(1) GOSUB 130:ON KEY(6) GOSUB 133:KEY(6) ON:KEY(1) ON:ON KEY(8) GOSUB 4000:KEY(8) ON:ON KEY(7) GOSUB 20000:KEY(7) ON:ON KEY(2) GOSUB 210:KEY(2) ON:RETURN
  218. 9000  IF ERL = 650 THEN EE=ERL:RESUME 655
  219. 9010  IF ERR = 27 THEN CLS:LOCATE 25,10:COLOR 1,7,1:PRINT "FILE = ";FILE$;SPACE$(10);"PRINTER ERROR ";:COLOR 7,1:LOCATE 1,1
  220. 9030  IF ERR = 27 THEN PRINT "CHECK THE PRINTER":FOR I= 1 TO 500:NEXT I:RESUME 230
  221. 9040  IF ERR = 53 THEN CLS:LOCATE 10,15:PRINT "File containing KEYS used in NOTES does not exist.":LOCATE 12,22:PRINT "Return to EDIT program to create file." :LOCATE 18,25:PRINT "HIT ANY KEY TO CONTINUE":GOSUB 35030:Y$=INPUT$(1):RESUME 160
  222. 9050  CLS:LOCATE 12,28:PRINT "ERROR ";ERR;" ENCOUNTERED":LOCATE 18,27:PRINT "HIT ANY KEY TO CONTINUE"
  223. 9060  Y$=INKEY$:IF Y$="" THEN 9060 ELSE RESUME 160
  224. 20000  N$=STR$(NN):A$="ADRODX":CHAIN "ADNAME",20000,ALL
  225. 20210  Y$=INKEY$:IF Y$="" THEN 20210 ELSE GOSUB 5000:RETURN
  226. 30000  CLS:LOCATE 25,25:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 1,1
  227. 30010  OPEN "ADMAIL.HLP" AS #2 LEN=78
  228. 30020  FIELD #2, 78 AS A$
  229. 30030  I=1:M=1
  230. 30040  GET #2,I
  231. 30090  IF LEFT$(A$,1) <> CHR$(15) THEN PRINT A$ :I=I+1:GOTO 30040 ELSE 30130
  232. 30130  LOCATE 24,27:COLOR 14,0:PRINT "HIT ANY KEY TO CONTINUE";:COLOR 3,0:GOSUB 35030
  233. 30140  Y$=INKEY$:IF Y$="" THEN 30140
  234. 30150  CLOSE #2:GOTO 200
  235. 35000  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 4:SOUND 500*SS%,2:NEXT:RETURN
  236. 35010  IF SND$="N" THEN RETURN ELSE FOR SS%=1 TO 3:SOUND 1000*SS%,1:NEXT:FOR SS%= 3 TO 1:SOUND 1000*SS%,1:NEXT:RETURN
  237. 35020  IF SND$="N" THEN RETURN ELSE BEEP:RETURN
  238. 35030  IF SND$="N" THEN RETURN ELSE SOUND 750,2:SOUND 30000,2:SOUND 750,2:RETURN
  239. 40000  A$="ADRODX.BAS":CHAIN "ADREAD.BAS",40000,ALL
  240.